home *** CD-ROM | disk | FTP | other *** search
/ Palm Utilities / Palm_Utilities_CD-ROM_2001_2001.iso / files / sports info / AnySchedule Schedule Builder 1.0 / buildsched.ZIP / buildhdr < prev    next >
Encoding:
Text File  |  1999-05-14  |  850 b   |  29 lines
  1. /* Build AnySched PDB header */
  2. trace off
  3. parse arg reslt
  4. say 'enter internal PDB Name (keep it < 25 characters)'
  5. parse pull intern
  6. hdrfile = 'header.fil'
  7. del 'header.fil'
  8. outrec = intern
  9. pos = length(intern)
  10. len = 32 - pos
  11. outrec = insert('00'x,outrec,pos,len,'00'x)
  12. outrec = insert('0000000106d144ae06d144ae'x,outrec,32)
  13. outrec = insert('00'x,outrec,44,16,'00'x)
  14. outrec = insert('SchdSHP1',outrec,60)
  15. outrec = insert('00'x,outrec,68,8,'00'x)
  16. res2 = charout(hdrfile,outrec)
  17. hexnum = d2x(reslt,4)
  18. interpret "res2 = charout(hdrfile,'"hexnum"'x)"
  19. lstsize = reslt * 8
  20. do n = 1 to reslt
  21.    recloc = 78 + lstsize + ((n - 1) * 120) + 2
  22.    hexloc = d2x(recloc,8)
  23.    interpret "res2 = charout(hdrfile,'"hexloc"'x)"
  24.    res2 = charout(hdrfile,'00000000'x)
  25. end /* do */
  26. res2 = charout(hdrfile,'0000'x)
  27. res2 = charout(hdrfile)
  28. exit 0
  29.